home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / a_14_Handy2056213262007.psc / Handy Modules / modFiles.bas < prev    next >
BASIC Source File  |  2007-03-22  |  2KB  |  58 lines
  1. Attribute VB_Name = "modFiles"
  2. Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
  3. Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
  4. Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
  5.  
  6.  
  7. Public Function FileAppend(File, text)
  8.     On Error Resume Next
  9.     ff = FreeFile
  10.     Open File For Append As ff
  11.         Print #ff, CStr(text)
  12.     Close ff
  13. End Function
  14.  
  15. Public Function FileWrite(File, text)
  16.     On Error Resume Next
  17.     ff = FreeFile
  18.     Kill File
  19.     Open File For Binary As ff
  20.         Put #ff, , CStr(text)
  21.     Close ff
  22. End Function
  23.  
  24. Public Function FileDelete(File)
  25.     On Error Resume Next
  26.     Kill File
  27. End Function
  28.  
  29. Public Function FileData(File) As String
  30.     Dim dat As String
  31.     ff = FreeFile
  32.     Open File For Binary As ff
  33.         dat = Space$(LOF(ff))
  34.         Get #ff, , dat
  35.     Close ff
  36.     FileData = dat
  37. End Function
  38.  
  39. Public Function FileCopy(File1, File2)
  40.     FileCopy = CopyFile(CStr(File1), CStr(File2), False)
  41. End Function
  42.  
  43. Public Function FileMove(File1, File2)
  44.     FileMove = MoveFile(CStr(File1), CStr(File2))
  45. End Function
  46.  
  47. Public Function FileLen(File)
  48.     ff = FreeFile
  49.     Open File For Binary As ff
  50.         FileLen = LOF(ff)
  51.     Close ff
  52. End Function
  53.  
  54. Public Function FileAttributes(File)
  55.     FileAttributes = GetFileAttributes(CStr(File))
  56. End Function
  57.  
  58.